0 IFF=0THENF=1:IFPEEK(34872)<>162THENLOAD"KUVAT",8,1
2 IFNUM=1THENPRINT"[147]":GOTO75
3 IFNUM<>0THEN75
10 PICT=6:PRINTCHR$(14):POKE53280,0:POKE53281,0:PRINT"[147]"
45 DIMN$(PICT),C(PICT)
50 FORI=1TOPICT:READN$(I):NEXT
60 NUM=1
70 LOADN$(NUM),8,1
75 SYS35554:SYS 34872
80 FORI=0TO800:NEXT
100 NUM=NUM+1:IFNUM>PICTTHEN120
110 GOTO70
120 FORI=0TO5000:NEXT:SYS35554:POKE53265,27:POKE53272,23:POKE53270,200
130 PRINT"[147][158]        [214][193][204][201][212][211][197] [200][193][204][213][193][205][193][211][201][160][206][213][205][197][210][207]!"
140 PRINT"        [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
150 PRINT"[153]     1.[202]OS HALUAT KUVAT UUDESTAAN"
160 PRINT"[153]     2.[202]OS HALUAT LOPETTAA OHJELMAN"
170 GETA$:IFA$=""THEN170
180 IFA$="1"THEN60
190 IFA$="2"THENSYS64738
1000 DATA KUVA 1,KUVA 2,KUVA 3,KUVA 4,KUVA 5,KUVA 6